0 POKE50257,16:REM STATUSWERT 1 REM ********************************* 2 REM * - - - - - - TOWER - - - - - - * 3 REM * REGELN VON VIER-GEWINNT * 4 REM * FUER 2 SPIELER GEGENEINANDER * 5 REM * ODER * 6 REM * FUER 1 SPIELER GEGEN DEN C-64 * 7 REM * - - - - - - - - - - - - - - - * 8 REM * (C) BY HK * 9 REM ********************************* 10 RESTORE:PRINT"[147]";:POKE53280,11:POKE53281,11:POKE51,0:POKE52,144 20 PRINTCHR$(9);CHR$(142);CHR$(8) 30 POKE55,0:POKE56,96:X=0:POKE808,251 40 RN=RND(TI):SP=INT(RND(RN)*2+1) 50 POKE2,0:POKE247,0:DIMA(7),B(7) 60 X=0:FORI=40474TO40952 70 READA:POKEI,A:X=X+A 80 NEXT:IFX<>44929THENPRINT"FEHLER IN DATENBLOCK 1":END 90 SYS40704:GOSUB1110:PRINT"[147]"; 100 FORA=25088TO25200:POKEA,0:NEXTA 110 FORA=1TO7:A(A)=0:B(A)=0:POKE25352+(A-1)*16,0:NEXTA 120 SYS40752:Q1=54272 130 PRINT" SPLR[221] A [221] B [221] C [221] D [221] E [221] F [221] G [221]SPLR " 140 PRINT" [163][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][163]" 150 PRINT" [221] [221] [221] [221] [221] [221] [221] [221]" 160 PRINT" [176][192][174] [171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179] [176][192][174]" 170 PRINT" [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 180 PRINT" [173][192][189] [221] [221] [221] [221] [221] [221] [221] [221] [173][192][189]" 190 PRINT" [171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]" 200 PRINT" [221] [221] [221] [221] [221] [221] [221] [221]" 210 PRINT" ZUG [221] [221] [221] [221] [221] [221] [221] [221] ZUG" 220 PRINT" [163][163][163][163][171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179][163][163][163][163]" 230 PRINT" [221] [221] [221] [221] [221] [221] [221] [221]" 240 PRINT" [221] [221] [221] [221] [221] [221] [221] [221]" 250 PRINT" [171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]" 260 PRINT" [221] [221] [221] [221] [221] [221] [221] [221]" 270 PRINT" [221] [221] [221] [221] [221] [221] [221] [221]" 280 PRINT" [171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]" 290 PRINT" [221] [221] [221] [221] [221] [221] [221] [221]" 300 PRINT" [221] [221] [221] [221] [221] [221] [221] [221]" 310 PRINT" [171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]" 320 PRINT" [221] [221] [221] [221] [221] [221] [221] [221]" 330 PRINT" [221] [221] [221] [221] [221] [221] [221] [221]" 340 PRINT" [173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189]" 350 PRINT"[153] (1) ";Z1$;"[146] ";Z2$;"[146] (2)" 360 PRINT" " 370 PRINTTAB(5);"[153]";Z1TAB(23);"[154]";Z2;"[145]" 380 X1=5:X2=6:Y1=162:Y2=196:W1=177:W2=178 390 POKECO+Y1,X1:POKECO+Y2,X2 400 POKE198,0 410 IFSP=1THENPOKETX+Y2,32:POKETX+Y1,W1 420 IFSP=2THENPOKETX+Y1,32:POKETX+Y2,W2 430 IFSP=2ANDZ=1THENGOSUB790:REM COMPUTER-ZUG 440 IFSP=1OR(SP=2ANDZ=0)THENGOSUB520 450 ZZ=ZZ+1 460 POKE247,SP:POKE248,(T-1)*16:POKE249,A(T)-1 470 SYS 24576 480 IFPEEK(247)=0ANDZZ=49THEN1100 490 IFPEEK(247)<>0THEN930:REM SIEGER 500 SP=SP+1:IFSP=3THENSP=1 510 GOTO400 520 POKE198,0 530 GETA$:IFA$=""THEN530 540 IFA$<"A"ORA$>"G"THEN530 550 Z$="ABCDEFG" 560 FORA=1TO7 570 IFA$=MID$(Z$,A,1)THENT=A:A=7:GOTO580 580 NEXTA 590 IFA(T)=7THEN530 600 A(T)=A(T)+1 610 POKE25352+(T-1)*16,A(T) 620 GOSUB650:REM ZUG ANZEIGEN 630 POKE25088+(A(T)-1)+(T-1)*16,SP 640 RETURN 650 IFSP=1THENFA=X1 660 IFSP=2THENFA=X2 670 C1=CO+882-A(T)*120+T*4 680 C2=TX+882-A(T)*120+T*4 690 FORA=0TO1 700 FORB=0TO2 710 POKEC1+A*40+B,FA 720 POKEC2+A*40+B,160 730 NEXTB 740 NEXTA 750 POKEQ1+1,30:POKEQ1+5,10:POKEQ1+15,1:POKEQ1+24,15 760 POKEQ1+4,21:FORI=1TO300:NEXT 770 POKEQ1+4,20 780 RETURN 790 SYS25456:REM TOWER-LOGIC $6370 800 IFPEEK(247)<>0THENT=PEEK(247):GOTO870 810 FORA=1TO7:B(A)=PEEK(25353+(A-1)*16):NEXTA 820 C=49 830 FORA=1TO7:IFA(A)=7THEN860 840 PE=PEEK(25344+(A-1)*16+A(A)) 850 IFB(A)=1ANDPE"J"THEN1040 1070 POKE247,0:ZZ=0 1080 SP=SP+1:IFSP=3THENSP=1 1090 PRINT"";:GOTO100 1100 N$="NIEMAND ":GOTO930 1110 PRINT"[147]" 1120 TX=1024:CO=55296 1130 POKE53280,.:POKE53281,.:PRINT"[150]";:REM FARBEN STETZEN 1140 PRINT" [175][175][175][175][175][175][175][175] [175][175][175][175][175][175] [175][175][175][175] [175][175][175][175][175][175] [175][175][175][175][175][175]" 1150 PRINT" [206] [169][146][206] [169][146][206] [169][223][146] [205][223][146] [205][223][146] [205]" 1160 PRINT" [207][183][183][183][183][183][183][208] [146][207][183][183][183][183][208] [146][207][208] [146][207][208] [146][207][183][183][183][183][208] [146][207][183][183][183][183][208]" 1170 PRINT" [204][175][175] [175][175][186][169][165] [167] [146][165][167] [146][165][167] [146][165] [175][175][175][186] [146][165] [167]" 1180 PRINT" [165][167] [146] [165]  [146][208] [167] [146][165][167] [146][165][167] [146][165][167] [205]  [146][165] [207][223] [167] [146]" 1190 PRINT" [165][167] [146] [165]  [146][167] [167] [146][165][167] [146][165][167] [146][165] [183][208]  [146][165] [163][163] [167]" 1200 PRINT" [165][167] [146] [165]  [146][167] [167] [146][165][167] [146][165][167] [146][165] [175][186]  [146][165] [164][186]" 1210 PRINT" [165][167] [146] [165] [169][208] [167] [146][165][167][169][223][165][167] [146][165] [165] [183][205] [146][165][167][205] [205]" 1220 PRINT" [165][167] [146] [165] [183][183] [167] [146][165] [167] [146][165] [183][183][183][208] [146][165][167] [205] [205]" 1230 PRINT" [204][186][169] [204][175][175][175][175][186][169][204][175][206][205][175][186][223][204][175][175][175][175][186][223][204][186] [205][186]" 1240 FORA=1TO13:PRINT" ":NEXTA 1250 PRINT"" 1260 FORFA=6TO2STEP-1 1270 FORA=0TO(11-(FA-2)*2)*40 1280 POKECO+A,FA 1290 NEXTA 1300 NEXTFA 1310 PRINT"";:REM TXT-FARBE 1320 PRINT""TAB(11)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 1330 PRINT" *** VON M. SCHWI ***" 1350 PRINT"" 1360 IFQ=1GOTO1430 1370 X=0:FORI=24576TO24896 1380 READA:POKEI,A:X=X+A 1390 NEXT:IFX<>42376THENPRINT"FEHLER IN DATENBLOCK 2":END 1400 X=0:FORI=25344TO26224 1410 READA:POKEI,A:X=X+A 1420 NEXT:Q=1:IFX<>94355THENPRINT"FEHLER IN DATENBLOCK 3":END 1430 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 1440 PRINT"  BRAUCHST DU EINE ANLEITUNG? (J/N) [146] ";:POKE204,0:POKE198,0 1450 GETA$:IFA$=""THEN1450 1460 IFA$="J"THEN1490 1470 POKE204,1:PRINT"[147]";:GOTO1740 1480 PRINTTAB(12)"[221] [221] [221] [221] [221] [221][160][221] [221]" 1490 POKE204,1:PRINT"[147]" 1500 PRINT" BEI DIESEM SPIEL MUESSEN ZWEI " 1510 PRINT" SPIELER VERSUCHEN 4 IHRER CHIPS IN" 1520 PRINT" HORIZONTALER, VERTIKALER ODER " 1530 PRINT" DIAGONALER ANORDNUNG AUF DEM FELD" 1540 PRINT" ZU PLAZIEREN. WER DAS SCHAFFT, IST " 1550 PRINT" DER SIEGER." 1560 PRINT 1570 PRINTTAB(19)" A B C D E F G" 1580 FORA=1TO6 1590 PRINTTAB(19)"[171][192][219][192][219][192][219][192][219][192][219][192][219][192][179]" 1600 NEXTA 1610 PRINTTAB(19)"[173][192][177][192][177][192][177][192][177][192][177][192][177][192][189]" 1620 PRINT"[145][145][145][145][145] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 1630 PRINT"  DAS SPIELFELD " 1640 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 1650 PRINT" DRUECKE EINE TASTE !" 1660 POKE198,0 1670 GETA$:IFA$=""THEN1670 1680 PRINT"[147]"SPC(15)"[164][164][164][164][164][164][164][164][164]" 1690 PRINTSPC(15)"T O W E R[146]" 1700 PRINT""; 1710 PRINT" ZUR BESTIMMUNG DER CHIP-POSITION " 1720 PRINT" DRUECKST DU DIE ENTSPRECHENDE TASTE" 1730 PRINT" DEINES C-64. VIEL SPASS!" 1740 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 1750 PRINT" HAST DU EINEN SPIELPARTNER ? (J/N)[146] ";:POKE204,0 1760 POKE198,0:OPEN1,0 1770 GETA$:IFA$=""THEN1770 1780 Z=0:IFA$="N"THENZ=1:GOTO1810 1790 IFA$="J"THEN1810 1800 GOTO1770 1810 POKE204,1:PRINT" [159]":IFZ=1THENPRINT" OK,ICH BIN EIN FAIRER PARTNER!" 1820 PRINT" WIE HEISST DU : ";:INPUT#1,Z1$:PRINT:Z1$=LEFT$(Z1$+" ",9) 1830 IFZ=0THENPRINT" & DEIN PARTNER : ";:INPUT#1,Z2$:PRINT:Z2$=LEFT$(Z2$+" ",9) 1840 IFZ=1THENZ2$="C B M " 1850 Z1$="[153]"+Z1$:Z2$="[154]"+Z2$ 1860 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 1870 PRINT"  DRUECKE EINE TASTE [146]" 1880 POKE198,0 1890 GETA$:IFA$=""THEN1890 1900 CLOSE1:RETURN 1910 REM VON 40474 BIS 40952 1920 DATA 0, 0, 0, 0, 8, 0, 10,101, 0, 0, 0, 0, 0, 11, 80, 0, 0, 0 1930 DATA 0, 0, 0,240, 0, 0, 0, 0, 0,162, 14, 20,162, 14, 40,109, 16, 20 1940 DATA103, 17, 40,237, 21, 20,137, 19, 20,162, 14, 40,103, 17, 40, 69, 29, 20 1950 DATA 69, 29, 40, 69, 29, 20, 20, 26, 30,237, 21, 10,137, 19, 20,237, 21,100 1960 DATA 69, 29, 20, 69, 29, 40, 69, 29, 20, 20, 26, 30,237, 21, 10,137, 19, 29 1970 DATA137, 19, 1,162, 14, 20,162, 14, 10,162, 14, 20,103, 17, 40,162, 14, 20 1980 DATA162, 14, 40,237, 21, 20,237, 21, 20,137, 19, 30,103, 17, 10,162, 14,100 1990 DATA 0,247, 10, 80, 10, 13, 60,162, 14, 60,103, 17, 60,237, 21, 60,207, 34 2000 DATA 60,109, 16,120,247, 10, 60, 10, 13, 60,162, 14, 60,103, 17, 60,247, 10 2010 DATA 60,109, 16, 60,247, 10,120, 0, 0,181, 8, 80,248, 10, 60, 79, 12, 60 2020 DATA163, 14, 60,208, 34, 60,238, 21, 60,197, 9,120,181, 8, 60,248, 10, 60 2030 DATA 79, 12, 60,163, 14, 60,248, 10, 60,110, 16, 60,248, 10, 50,248, 10, 10 2040 DATA110, 16, 10,104, 17, 10,110, 16, 10,248, 10, 10, 0, 0,169, 1,141, 21 2050 DATA158,141, 16,158,141, 17,158,169,253,141, 18,158,141, 19,158,141, 20,158 2060 DATA162, 24,189, 27,158,157, 0,212,202, 16,247,120,169, 72,141, 20, 3,169 2070 DATA159,141, 21, 3, 88, 96, 96, 96,162, 24,169, 0,157, 0,212,202, 16,250 2080 DATA120,169, 49,141, 20, 3,169,234,141, 21, 3, 88, 96, 96,169, 15,141, 24 2090 DATA212,234,206, 21,158,208, 72,238, 18,158,238, 18,158,238, 18,158,173, 18 2100 DATA158,201, 99,240, 32,170,169, 64,141, 4,212,189, 53,158,141, 0,212,189 2110 DATA 54,158,141, 1,212,189, 55,158,141, 21,158,169, 65,141, 4,212, 24,144 2120 DATA 24,169,253,141, 18,158,141, 19,158,141, 20,158,169, 1,141, 21,158,141 2130 DATA 16,158,141, 17,158,208, 90,206, 16,158,208, 40,169, 32,141, 11,212,238 2140 DATA 19,158,238, 19,158,238, 19,158,174, 19,158,189,153,158,141, 7,212,189 2150 DATA154,158,141, 8,212,189,155,158,141, 16,158,169, 33,141, 11,212,206, 17 2160 DATA158,208, 40,169, 16,141, 18,212,238, 20,158,238, 20,158,238, 20,158,174 2170 DATA 20,158,189,197,158,141, 14,212,189,198,158,141, 15,212,189,199,158,141 2180 DATA 17,158,169, 17,141, 18,212, 76, 49,234, 0 2190 REM VON 24576 BIS 24896 DATENBLOCK 2 2200 DATA162, 0,169, 98,141, 14, 96,165,248,141, 13, 96,173,255,255,197,247,240 2210 DATA 12,232,224, 4,240, 39, 24,238, 13, 96, 76, 12, 96,160, 0,173, 13, 96 2220 DATA141, 49, 96,169, 98,141, 50, 96,238, 49, 96,200,173,255,255,197,247,208 2230 DATA220,192, 3,240, 3, 76, 44, 96, 96,162, 0,169, 98,141, 77, 96,165,249 2240 DATA141, 76, 96,173,255,255,197,247,240, 17,232,224, 4,240, 50, 24,173, 76 2250 DATA 96,105, 16,141, 76, 96, 76, 75, 96,160, 0,173, 76, 96,141,123, 96,169 2260 DATA 98,141,124, 96, 24,173,123, 96,105, 16,141,123, 96,200,173,255,255,197 2270 DATA247,208,209,192, 3,240, 3, 76,112, 96, 96,162, 0,169, 98,141,151, 96 2280 DATA169, 0,141,150, 96,173,255,255,197,247,240, 30,232,224, 4,240, 7, 24 2290 DATA238,150, 96, 76,149, 96, 24,173,150, 96,105, 13,201, 64,240, 46,141,150 2300 DATA 96,162, 0, 76,149, 96,160, 0,173,150, 96,141,210, 96,169, 98,141,211 2310 DATA 96, 24,173,210, 96,105, 17,141,210, 96,200,173,255,255,197,247,208,196 2320 DATA192, 3,240, 3, 76,199, 96, 96,162, 0,169, 98,141,238, 96,169, 6,141 2330 DATA237, 96,173,255,255,197,247,240, 30,232,224, 4,240, 7, 24,206,237, 96 2340 DATA 76,236, 96, 24,173,237, 96,105, 19,201, 70,240, 46,141,237, 96,162, 0 2350 DATA 76,236, 96,160, 0,173,237, 96,141, 41, 97,169, 98,141, 42, 97, 24,173 2360 DATA 41, 97,105, 15,141, 41, 97,200,173,255,255,197,247,208,196,192, 3,240 2370 DATA 3, 76, 30, 97, 96,169, 0,133,247, 96,170,119,145,191, 0 2380 REM VON 25344 BIS 26224 DATENBLOCK 3 2390 DATA 15, 21, 29, 35, 42, 46, 47,170,170,170,170,170,170,170,170,170, 7, 12 2400 DATA 20, 26, 34, 39, 43,170,170,170,170,170,170,170,170,170, 2, 6, 11, 17 2410 DATA 25, 31, 38,170,170,170,170,170,170,170,170,170, 0, 1, 4, 9, 16, 23 2420 DATA 30,170,170,170,170,170,170,170,170,170, 3, 5, 10, 18, 24, 32, 37,170 2430 DATA170,170,170,170,170,170,170,170, 8, 13, 19, 27, 33, 40, 44,170,170,170 2440 DATA170,170,170,170,170,170, 14, 22, 28, 36, 41, 45, 48,170,170,170,170,170 2450 DATA170,170,170,170,169, 0,141,111, 99,141, 95, 99,141,107, 99,173, 95, 99 2460 DATA 10, 10, 10, 10,170,189, 8, 99,201, 7,240, 55, 24,133,249,142,156, 99 2470 DATA109,156, 99,141,156, 99,141,168, 99,169, 2,141,255, 98,133,247,134,248 2480 DATA 32, 0, 96,169, 0,141,255, 98,165,247,201, 2,208, 17, 24,173, 95, 99 2490 DATA105, 1,141,111, 99,169, 7,141, 95, 99, 76,196, 99,238, 95, 99,169, 7 2500 DATA205, 95, 99,240, 3, 76,123, 99,173,111, 99,201, 0,240, 3,133,247, 96 2510 DATA169, 0,141, 95, 99,173, 95, 99, 10, 10, 10, 10,170,169, 0,157, 9, 99 2520 DATA169, 7,157, 10, 99,238, 95, 99,169, 7,205, 95, 99,208,228,169, 0,141 2530 DATA 95, 99,173, 95, 99, 10, 10, 10, 10,170,189, 8, 99,141,109, 99,201, 7 2540 DATA208, 11,169, 0,157, 9, 99,157, 10, 99, 76, 14,101,142, 49,100, 24,168 2550 DATA109, 49,100,141, 49,100,141,254,100,200,152,157, 8, 99,169, 2,141,255 2560 DATA 98,169, 0,141,107, 99,173,107, 99, 10, 10, 10, 10,170,189, 8, 99,141 2570 DATA110, 99,201, 7,208, 3, 76,238,100,142,101,100, 24,168,133,249,109,101 2580 DATA100,141,101,100,141,221,100,200,152,157, 8, 99,169, 1,141,255, 98,133 2590 DATA247,134,248, 32, 0, 96,173, 95, 99, 10, 10, 10, 10,170,165,247,201, 1 2600 DATA208, 9, 56,189, 10, 99,233, 1,157, 10, 99,169, 0,141,108, 99,173,108 2610 DATA 99, 10, 10, 10, 10,170,189, 8, 99,201, 7,240, 55,142,171,100, 24,133 2620 DATA249,109,171,100,141,171,100,141,183,100,169, 2,141,255, 98,133,247,134 2630 DATA248, 32, 0, 96,169, 0,141,255, 98,165,247,201, 2,208, 17,173, 95, 99 2640 DATA 10, 10, 10, 10,170, 24,189, 9, 99,105, 1,157, 9, 99,238,108, 99,169 2650 DATA 7,205,108, 99,208,176,169, 0,141,255, 98,173,107, 99, 10, 10, 10, 10 2660 DATA170, 24,173,110, 99,157, 8, 99,238,107, 99,169, 7,205,107, 99,240, 3 2670 DATA 76, 56,100,169, 0,141,255, 98,173, 95, 99, 10, 10, 10, 10,170,173,109 2680 DATA 99,157, 8, 99,238, 95, 99,169, 7,205, 95, 99,240, 3, 76,254, 99,169 2690 DATA 0,133,247,234,169, 0,141,107, 99,141,108, 99,173, 10, 99,141,110, 99 2700 DATA169, 1,141, 95, 99,173, 95, 99, 10, 10, 10, 10,170,189, 10, 99,205,110 2710 DATA 99,240, 8,176, 3, 76, 75,101,141,110, 99,238, 95, 99,169, 7,205, 95 2720 DATA 99,240, 3, 76, 51,101,169, 0,141,109, 99,141, 95, 99,173, 95, 99, 10 2730 DATA 10, 10, 10,170, 24,189, 10, 99,109,109, 99,141,109, 99,238, 95, 99,169 2740 DATA 7,205, 95, 99,240, 3, 76, 96,101,173,109, 99,201, 0,208, 31,169, 0 2750 DATA141, 95, 99,173, 95, 99, 10, 10, 10, 10,170,169, 1,157, 10, 99,238, 95 2760 DATA 99,169, 7,205, 95, 99,240, 3, 76,139,101,169, 0,141,108, 99,141, 95 2770 DATA 99,173, 95, 99, 10, 10, 10, 10,170,189, 9, 99,205,108, 99,240, 19,176 2780 DATA 3, 76,208,101,189, 10, 99,205,110, 99,208, 6,189, 9, 99,141,108, 99 2790 DATA238, 95, 99,169, 7,205, 95, 99,240, 3, 76,173,101,169, 0,141, 95, 99 2800 DATA173, 95, 99, 10, 10, 10, 10,170,189, 9, 99,205,108, 99,208, 16,189, 10 2810 DATA 99,205,110, 99,208, 8,169, 1,157, 9, 99, 76, 7,102,169, 0,157, 9 2820 DATA 99,238, 95, 99,169, 7,205, 95, 99,240, 3, 76,226,101,169, 0,141,109 2830 DATA 99,141, 95, 99,173, 95, 99, 10, 10, 10, 10,170, 24,189, 9, 99,109,109 2840 DATA 99,141,109, 99,238, 95, 99,169, 7,205, 95, 99,240, 3, 76, 28,102,173 2850 DATA109, 99,201, 0,208, 31,169, 0,141, 95, 99,173, 95, 99, 10, 10, 10, 10 2860 DATA170,169, 1,157, 9, 99,238, 95, 99,169, 7,205, 95, 99,240, 3, 76, 71 2870 DATA102, 96, 0,170,170,170,170, 0, 69, 69, 0,186, 69,217, 0, 5, 0